Problem s TListView - snad vyreseno

Otázka od: Ing. Radek Tomsik

19. 9. 2004 21:08

No, jeste jsem trochu hledal na internetu a nasel toto :

The only problem I have found with WinXP and Delphi is the TListView
control. Everything else seems to work OK for me (though I don't use
TCoolBar). You need to modify the Delphi VCL to fix the TListView
problem. I
only have Delphi 5, so you will need to adapt the following to Delphi 6:
----- cut -----
Unit: ComCtrls
Method: TCustomListView.UpdateColumn
Old:
if FImageIndex <> -1 then
   fmt := fmt or LVCFMT_IMAGE or LVCFMT_COL_HAS_IMAGES;
New:
if FImageIndex <> -1 then
    fmt := fmt or LVCFMT_IMAGE or LVCFMT_COL_HAS_IMAGES
else
     mask := mask and not (LVCF_IMAGE);
----- cut -----
Vypada to ze po uprave a prekompilovani comctrls.pas to funguje OK,
mozna to nekomu pomuze.
Diky za snahu
Radek

--------------------------
Vzhledem k tomu ze kernel32.dll je standardni knihovna Windows je sice
mozny
ze kdyz nainstalujes WinXP SP1 nebo SP2 tak nova verze tohle uz delat
nebude
ale spis na druhou stranu sude verze Delphi vcetne v.6 byly vzdycky
derave
tak muzes kdyz to nepomuze zkusit stahnout Delphi 7 Trial (pokud je k
dispozici coz nevim) a zkusit ..... ja sam mam Delphi 7 Enterprise a
WinXP
SP2 a ani s XP manifestem to nic nedela ... good luck

Odpovedá: Vlastimil Burian

20. 9. 2004 6:49

dival sem se do zdroje ComCtrls.pas v mych Delphi 7 a nasel to a vazne je
tam ta "nova
varianta" takze Ok !

----------------------

Old:

if FImageIndex <> -1 then
   fmt := fmt or LVCFMT_IMAGE or LVCFMT_COL_HAS_IMAGES;

New:

if FImageIndex <> -1 then
    fmt := fmt or LVCFMT_IMAGE or LVCFMT_COL_HAS_IMAGES
else
     mask := mask and not (LVCF_IMAGE);